Dim intFormCtr As Integer
Private Sub ToolbarButton1_Click()
    Select Case e.itemData
        Case "New"
            Call mnuFileNew_Click
    End Select
End Sub

Private Sub MDIForm_Load()
    intFormCtr = 1
    frmNote.Caption = "NotePad Version " & intFormCtr
End Sub

Private Sub mnuFileNew_Click()
    Dim NewNote As New frmNote
    intFormCtr = intFormCtr + 1
    NewNote.Show
    NewNote.Text = "NotePad Version " & intFormCtr
End Sub
